home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Georgia Wildfire Prevention
/
Georgia Wildfire Prevention.iso
/
pc
/
media
/
dirs
/
BackUp
/
code.cst
/
00010_Script_ctrlobj
< prev
next >
Wrap
Text File
|
2002-10-15
|
1KB
|
49 lines
property test,history,user_info,userinfo
on new me
test=""
history=[]
userinfo=[#fname:"",#lname:"",#address:"",#city:"",#state:"",#zip:"",#age:""]
return(me)
end
on goto me,mov,frm,aux
puppetsound 1,0
puppetsound 2,0
c=history.count
if c>0 then
if history[c].movie="login" then set_info(me)
end if
fl=frm.length
ml=mov.length
case TRUE of
(fl>0 and ml>0):go frame frm of movie mov
(fl>0 and ml=0):go frame frm
(fl=0 and ml>0):go movie mov
end case
ntry=[#movie:mov,#frame:frm,#aux:aux]
history.add(ntry)
if history.count>25 then history.deleteat(1)
end
on set_info me
userinfo.fname=member("First Name").text
userinfo.lname=member("Last Name").text
userinfo.address=member("Address").text
userinfo.city=member("City").text
userinfo.State=member("State").text
userinfo.zip=member("Zip Code").text
userinfo.age=member("Age").text
end
on previous_link me
c=history.count
cm=history[c-1]
history.deleteat(c)
history.deleteat(c-1)
goto(me,cm[1],cm[2],cm[3])
end